HyperLib 1997 Winter - Disc 1/HYPERLIB-1997-Winter-CD1.ISO.7z/HYPERLIB-1997-Winter-CD1.ISO/オンラインウェア/GAME/haunted-mansion-1.5 folder.sit/haunted-mansion-1.5 folder/Haunted Mansion/Haunted Mansion 1.2/background_2716.xml

Extensible Markup Language | 1995-10-05 | 2KB | 14 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2716</id>
    <filler1>0</filler1>
    <bitmap>BMAP_12889.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3114.css" />
    <name>gone</name>
    <script>on openbackgroundglobal PayUpget the dateconvert the date to dateItemsif cd fld "Register" is empty thenput item 1 of it into Toadsubtract 1995 from Toad -- year of origin minus current yearmultiply Toad by 365put item 2 of it into Frogmultiply Frog by 30add Frog to item 3 of itadd Toad to item 3 of itput item 3 of it into cd fld "Register"elseput item 1 of it into Toadsubtract 1995 from Toad -- year of origin minus current yearmultiply Toad by 365put item 2 of it into Frogmultiply Frog by 30add Frog to item 3 of itadd Toad to item 3 of itput item 3 of it into PayUpsubtract cd fld "Register" from PayUpif PayUp < 2 thenanswer "Please remember to register this shareware! Thank you."elseget PayUpif PayUp < 5 thenanswer "Why won't you pay?  I have kids to feed."wait 3answer "Don't be a deadbeat.  You use a MAC - not a PC...for goodness sake!"elseget PayUpif PayUp < 8 thenanswer "Shareware is not free.  Please register."wait 3answer "They'll cut off my electricity. You don't have much longer!!!"elseget PayUpif PayUp 竕･ 8 thenplay "laugh"answer"I wish you'd register" with"I should" or "SureSure" or"Not"doMenu "Delete stack..."without dialogend ifend ifend ifend ifend ifend openbackground</script>
</background>